﻿<!-- #include file="mymin.asp" -->
<%
Call Head()
w "<card title='文章推荐'><p>"

dim id,classid,rs,a
id=request("id")
classid=request("classid")
a=request("a")
' If a<>"1" Then a="0"

set rs=server.createobject("adodb.recordset")
rs.open "select recommend from 74hu_article where id="&id,myconn,1,3
if rs.eof and rs.bof then
	w "文章不存在<br/>"
else
	If a="1" Then'表示要推荐文章
		rs("recommend")=1
		rs.update
		w "文章推荐成功!"
	Else
		rs("recommend")=0
		rs.update
		w "文章取消推荐成功!"
	End If
	w "<a href='wzgl.asp?id="&id&"&amp;sid="&sid&"&amp;classid="&classid&"'>返回文章管理</a><br/>"
end if
rs.close
set rs=nothing
%>
----------<br/>
<a href="adminsmscl.asp?sid=<%=sid%>&amp;id=<%=classid%>">[文章列表]</a>
<br/><a href="wzclass.asp?sid=<%=sid%>">[返回分类]</a><%Call last%>